home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / hardware / gvpio111.lha / installioextender < prev    next >
Encoding:
Text File  |  1993-01-20  |  5.5 KB  |  124 lines
  1. ; GVP IOExtender Install Script
  2. ; Version 1.0
  3. ; Original     bly J.W. Lockhart ---- 21 February 1992
  4. ; Re-Write     by Gary Nush -------- 06 July     1992
  5. ; Re-re-Write  by Gary Nush -------- 13 July     1992
  6. ; Over-Write   by Erik Quackenbush - 14 August   1992
  7. ; Update-Write by Steve Peoples ---- 20 January  1993
  8. ; Copyright (c)1993 by Great Valley Products, Inc.
  9.  
  10. ; Written for use with Commodore's Installer, V1.23.
  11.  
  12. ; Some useful variables
  13. (set disklab "GVP.Install")           ; Source disk for new files
  14. (set disklab2 (cat disklab ":"))      ; Source disk, with colon
  15. (set os_ver
  16.      (/ (getversion) $0000FFFF))      ; version of AmigaDOS...
  17.  
  18. ; If the user has booted from this floppy, we need to find out
  19. ; where the usual SYS: partition is.  Try a few looks about the system...
  20. ; Currently looks for WB_2.x:, System2.0:, or dh0:.  Ask user if we can't
  21. ; figure out where s/he boots from, and/or for confirmation.
  22. (set target (getassign "wb_2.x" 'd'))             ; Device-only check.
  23. (if (= target "")
  24.     (set target (getassign "System2.0" 'v')))     ; VolumeName-only check.
  25. (if (= target "")
  26.     (set target (getassign "dh0" 'd')))           ; Device-only check.
  27. (if (= target "")
  28.     (set target (getassign "System2.0")))         ; Logical assign check.
  29. (if (= target "")
  30.     (set target (getassign "dh0")))               ; Logical assign check.
  31.  
  32. ; If we're at Wit's End:
  33. (if (= target "")
  34.     (set target @default-dest))                   ; default destination
  35.  
  36. ; Now, make absolutely, positively sure that we go to the right place.
  37. (set target (askdir (prompt "Which partition do you usually boot from?\n"
  38.                             "The required utilities should be installed there.")
  39.                     (help @askdir-help)
  40.                     (default target)))
  41.  
  42. ; Install SetDevice command.
  43. (copyfiles (source (tackon disklab2 "GVP/IO"))
  44.          (dest (tackon target "C"))
  45.          (pattern "(setdev#?)")
  46.          (infos) (confirm)
  47.          (prompt "Shall I install the SetDevice command?")
  48.          (help "You need SetDevice in order to set the IOExtender parallel and "
  49.                "serial ports as system defaults.\n\n"
  50.                @copyfiles-help))
  51.  
  52. ; Install sys:l/gvpporthandler
  53. (copyfiles (source (tackon disklab2 "L"))
  54.          (pattern "(gvpport#?)")
  55.          (dest (tackon target "L"))
  56.          (infos) (confirm)
  57.          (prompt "The following MUST be installed in sys:L\n")
  58.          (help "Gvpporthandler - the handler needed for proper\n"
  59.                "                 operation of the on-board serial\n"
  60.                "                 and parallel ports.\n             "
  61.                @copyfiles-help))
  62.  
  63. ; Install sys:expansion/gvpio
  64. (copyfiles (source (tackon disklab2 "Expansion"))
  65.          (dest (tackon target "Expansion"))
  66.          (pattern "(Gvpi#?)")
  67.          (infos) (confirm)
  68.          (prompt "The following MUST be installed in sys:Expansion\n")
  69.          (help "GvpIo   - the device driver for the on-board serial\n"
  70.                "          and parallel ports.\n                      "
  71.                @copyfiles-help))
  72.  
  73. ; Install sys:gvp/IO/GVPIOCtrl, sys:gvp/IO/GVPSerial
  74. (copyfiles (source (tackon disklab2 "GVP/IO"))
  75.          (dest (tackon target "Prefs"))
  76.          (pattern "(GvpIO|GvpSer)#?")
  77.          (infos) (confirm)
  78.          (prompt "The following should be installed in sys:Prefs:\n")
  79.          (help "GVPIOCtrl - controls default serial and\n"
  80.                "            parallel port preferences.\n"
  81.                "GVPSerial - controls serial port default\n"
  82.                "            setting for items like baud rate,\n"
  83.                "            buffer size, etc.\n"
  84.                @copyfiles-help))
  85.  
  86. ; Install SetDevice command.  Use CopyLib so that version numbers are checked.
  87. (copylib (source (tackon disklab2 "GVP/IO/SetDevice")) (dest (tackon target "c"))
  88.          (infos) (confirm)
  89.          (prompt "Shall I install the SetDevice command?")
  90.          (help "You need SetDevice in order to set the IOExtender "
  91.                "parallel and serial ports as system defaults.\n\n"
  92.                @copylib-help))
  93.  
  94.         ; Alter user-startup and add SetDevice.
  95.         (startup "SetDevice"
  96.                  (prompt "Would you like the ability to redirect output "
  97.                          "to the default parallel or serial port to the "
  98.                          "IOExtender's parallel or serial port?  If so, "
  99.                          "Click 'Proceed'.")
  100.                  (help "This will automatically check the settings "
  101.                        "created by the GvpIOControl program, and if "
  102.                        "indicated, it will redirect the standard parallel "
  103.                        "or serial port output to the ports on the"
  104.                        "IOExtender. ")
  105.                  (command "run >nil: c:SetDevice"))
  106.  
  107.         ; Alter user-startup and add Binddrivers.
  108.   (if (= @user-level 2)
  109.    (
  110.         (startup "Binddrivers"
  111.                  (prompt "If you do not already execute the command "
  112.                          "Binddrivers in the s:startup-sequence, would "
  113.                          "you like to add it now? If so, "
  114.                          "Click 'Proceed'.")
  115.                  (help "This will automatically launch the drivers for "
  116.                        "the IOExtender's onboard parallel and serial ports "
  117.                        "everytime your Amiga is powered-on or re-booted.\n")
  118.                  (command "Binddrivers"))
  119.   ))  
  120.  
  121. ; For automatic end-of-script message displaying the name of
  122. ; the place where the software was installed...
  123. (set @default-dest target)
  124.